home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act8 / 00122.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  551 b   |  25 lines
  1. on exitFrame
  2.   global doofus, instruct8, ogre, hathorig, hatvorig
  3.   puppetSprite(1, 0)
  4.   set the locH of sprite 27 to hathorig
  5.   set the locV of sprite 27 to hatvorig
  6.   puppetSprite(27, 0)
  7.   set instruct8 to 2
  8.   puppetSound(0)
  9.   sound stop 1
  10.   sound stop 2
  11.   unLoadCast("Go Buggy")
  12.   preLoadCast("diga1", "digi1")
  13.   set the mouseout of ogre to 1
  14.   repeat with xxx = 1 to 5
  15.     setscript("narr" & xxx)
  16.     sayit(ogre)
  17.     if the mouseDown then
  18.       exit repeat
  19.     end if
  20.   end repeat
  21.   set the mouseout of ogre to 0
  22.   puppetSound(0)
  23.   go(doofus)
  24. end
  25.